home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / gbust.arc / G-BUST.BAS next >
Encoding:
BASIC Source File  |  1986-04-26  |  768 b   |  15 lines
  1. 10 KEY OFF:SCREEN 0:WIDTH 40:COLOR 15,1,1:CLS
  2. 20 LOCATE 6,15,0:PRINT"GH";:COLOR 12:PRINT"0";:COLOR 15:PRINT"STBUSTERS"
  3. 30 LOCATE 8,20:COLOR 7:PRINT"by"
  4. 40 LOCATE 10,15:COLOR 11:PRINT"Gregg Minkow"
  5. 50 LOCATE 15,1:COLOR 14
  6. 60 PRINT"  This program loads the picture        G-BUST.PIC onto the screen.  You must have a color graphics adapter to view   this picture.
  7. 70 PRINT:PRINT"  To run this program place the disk    with G-BUST.PIC in the default drive."
  8. 80 LOCATE 24,8:COLOR 10:PRINT"Press RETURN to continue";
  9. 90 IF INKEY$<>CHR$(13) THEN 90
  10. 100 SCREEN 1:COLOR 8,1:CLS
  11. 110 DEF SEG=&HB800
  12. 120 BLOAD"G-BUST.PIC",0
  13. 130 IF INKEY$="" THEN 130
  14. 140 SCREEN 0:WIDTH 80:COLOR 15,1,1:CLS
  15.